home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / fly.dxr / page4_1_init page 3.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  1.6 KB  |  25 lines
  1. global gSoundManager, gModule1, gButtonManager
  2.  
  3. on exitFrame
  4.   set aButton to mAddButton(gButtonManager, 6, "tailButton", popUpHandler("tailPopUp"))
  5.   mAddPageObject(gModule1, aButton)
  6.   set aButton to mAddButton(gButtonManager, 7, "fuselageButton", popUpHandler("fuselagePopUp"))
  7.   mAddPageObject(gModule1, aButton)
  8.   set aButton to mAddButton(gButtonManager, 8, "wingsButton", popUpHandler("wingsPopUp"))
  9.   mAddPageObject(gModule1, aButton)
  10.   set aButton to mAddButton(gButtonManager, 9, "enginesButton", popUpHandler("enginesPopUp"))
  11.   mAddPageObject(gModule1, aButton)
  12.   set aButton to mAddButton(gButtonManager, 10, "gearButton", popUpHandler("gearPopUp"))
  13.   mAddPageObject(gModule1, aButton)
  14.   set aButton to mAddButton(gButtonManager, 11, "cockpitButton", popUpHandler("cockpitPopUp"))
  15.   mAddPageObject(gModule1, aButton)
  16.   set aButton to mAddButton(gButtonManager, 15, "controlsButton", "mGoToPage(gModule1, 6)")
  17.   mAddPageObject(gModule1, aButton)
  18.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 6, "tailRollover", 20, point(320, 240)))
  19.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 7, "fuselageRollover", 21, point(320, 240)))
  20.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 8, "wingsRollover", 22, point(320, 240)))
  21.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 9, "enginesRollover", 23, point(320, 240)))
  22.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 10, "gearRollover", 24, point(320, 240)))
  23.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 11, "cockpitRollover", 25, point(320, 240)))
  24. end
  25.